home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / misc / wclass20.zip / PASUSER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-01-16  |  663 b   |  29 lines
  1. {This program file may be used with Object
  2. Pascal code generated from pascar.omt.
  3. Run the script pascal1.sct with the file
  4. extension pas. Then compile
  5. the following generated unit files:
  6. VehicleU.pas, MotorUn.pas, CellulaU.pas,
  7. PassengU.pas, TireUnit.pas, CarUnit.pas,
  8. and pasuser.pas.
  9. }
  10.  
  11. Program Pasuser;
  12.  
  13. uses CarUnit;
  14.  
  15. Var
  16.   Number : Integer;
  17.   Car1 : Car;
  18.   Car2 : Car;
  19. begin
  20.   Car1.DefaultInit;
  21.   Number := Car1.GetGasQuantity;
  22.   WriteLn ('The gas quantity is ', Number);
  23.   Car2.Init (15, 20);
  24.   Number := Car2.GetGasQuantity;
  25.   WriteLn ('The gas quantity is ', Number);
  26.   Car1.Copy (Car2);
  27.   Car1.Operate (55, 15, Number);
  28. end.
  29.